home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / m2gem106.lzh / CRYSTAL1.06 / SRC / TOOLBOX / PSTORAGE.DEF < prev    next >
Encoding:
Modula Definition  |  1993-11-07  |  592 b   |  38 lines
  1. DEFINITION MODULE pSTORAGE;
  2.  
  3. (*
  4. A portable Storage Module.
  5.  
  6. UK __DATE__ __TIME__
  7. *)
  8.  
  9. (*DEF_SWITCHES*)
  10.  
  11. FROM SYSTEM IMPORT ADDRESS;
  12. #ifdef FTLM2
  13. #define Storage STORAGE
  14. #endif
  15.  
  16. #ifdef FTLM2
  17. IMPORT Storage;
  18. #endif
  19.  
  20. #if (defined FSTM2) || (TSM2_2)
  21. TYPE SIZETYPE = CARDINAL;
  22. #else
  23. TYPE SIZETYPE = LONGCARD;
  24. #endif
  25.  
  26. #ifdef FTLM2
  27. CONST ALLOCATE = Storage.ALLOCATE;
  28.  
  29.       DEALLOCATE = Storage.DEALLOCATE;
  30. #endif
  31.  
  32. #ifndef FTLM2
  33. PROCEDURE ALLOCATE(VAR Addr: ADDRESS; Size: SIZETYPE);
  34.  
  35. PROCEDURE DEALLOCATE(VAR Addr: ADDRESS; Size: SIZETYPE);
  36. #endif
  37. END pSTORAGE.
  38.